home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_2 / toolmanager / programmers / modula / toolmanagerl.def < prev    next >
Text File  |  1993-05-15  |  2KB  |  89 lines
  1. DEFINITION MODULE ToolManagerL{"toolmanager.library",0};
  2.  
  3.  
  4.  
  5. (*
  6.  * toolmanager_protos.h  V2.1
  7.  *
  8.  * Prototypes for toolmanager.library functions
  9.  *
  10.  * (c) 1990-1993 Stefan Becker
  11.  *)
  12.  
  13. (*
  14.  * M2Amiga Modula-2 declarations
  15.  *
  16.  * (Freeware) 1993 by JOW
  17.  *
  18.  * If you encounter any problems with these, please contact me at:
  19.  *   jow@sun.rz.uni-wuerzburg.de  or  jow@hcast.franken.de
  20.  *)
  21.  
  22.  
  23.  
  24. IMPORT D:ToolManagerD;
  25. IMPORT ED:ExecD;
  26. IMPORT R;
  27. IMPORT SYSTEM;
  28. IMPORT UtilityD;
  29.  
  30.  
  31.  
  32. TYPE
  33.   StrPtr=SYSTEM.ADDRESS;        (* dummy declaration to improve readability *)
  34.  
  35.  
  36.  
  37. VAR
  38.   toolmanagerVersion: INTEGER;
  39.   toolmanagerBase: ED.LibraryPtr;
  40.  
  41.  
  42.  
  43. (* AllocTMHandle -- Allocate a ToolManager handle *)
  44.  
  45. PROCEDURE AllocTMHandle(): D.TMHandlePtr; CODE -42;
  46.  
  47.  
  48.  
  49. (* ChangeTMObjectTagList -- Change the properties of a ToolManager object *)
  50.  
  51. PROCEDURE ChangeTMObjectTagList(
  52.             handle{R.A0}: D.TMHandlePtr;
  53.             object{R.A1}: StrPtr;
  54.             tags{R.A2}: UtilityD.TagItemPtr): BOOLEAN; CODE -66;
  55.  
  56.  
  57.  
  58. (* CreateTMObjectTagList -- Create a ToolManager object *)
  59.  
  60. PROCEDURE CreateTMObjectTagList(
  61.             handle{R.A0}: D.TMHandlePtr;
  62.             name{R.A1}: StrPtr;
  63.             type{R.D0}: LONGINT; (* D.TMObjType *)
  64.             tags{R.A2}: UtilityD.TagItemPtr): BOOLEAN; CODE -54;
  65.  
  66.  
  67.  
  68. (* DeleteTMObject -- Delete a ToolManager object *)
  69.  
  70. PROCEDURE DeleteTMObject(
  71.             handle{R.A0}: D.TMHandlePtr;
  72.             object{R.A1}: StrPtr): BOOLEAN; CODE -60;
  73.  
  74.  
  75.  
  76. (* FreeTMHandle -- Free a ToolManager handle *)
  77.  
  78. PROCEDURE FreeTMHandle(handle{R.A0}: D.TMHandlePtr); CODE -48;
  79.  
  80.  
  81.  
  82. (* QuitToolManager -- Send quit signal to ToolManager process *)
  83.  
  84. PROCEDURE QuitToolManager(); CODE -36;
  85.  
  86.  
  87.  
  88. END ToolManagerL.def
  89.